home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Top 200 Programs
/
Top 200 Programs.iso
/
Bob8
/
THOMPSON
/
LIBERTY
/
PRODUCT
/
LB14W.EXE
/
DRIVES.BAS
< prev
next >
Wrap
BASIC Source File
|
1995-02-21
|
498b
|
20 lines
'a simple example illustrating the use of the Drives$ variable
dim letters$(25)
index = 0
while word$(Drives$, index + 1) <> ""
letters$(index) = word$(Drives$, index + 1)
index = index + 1
wend
statictext #select, "Double-click to pick a drive:", 10, 10, 200, 20
listbox #select.list, letters$(, [selectionMade], 10, 35, 100, 150
open "Scan drive" for dialog as #select
input r$
[selectionMade]
close #select
end